﻿Imports QLTHUVIEN.DAO
Imports QLTHUVIEN.DTO

Public Class ChucVuBUS
    Public Function LayDanhSach() As DataTable
        Dim bc As ChucVuDAO = New ChucVuDAO()
        Dim dt As DataTable = bc.LayDanhSach()
        Return dt
    End Function

    Public Sub ThemChucVu(ByVal ChucVu As ChucVuDTO)
        Dim bcDao As New ChucVuDAO()
        bcDao.ThemChucVu(ChucVu)
    End Sub

    Public Sub SuaChucVu(ByVal ChucVu As ChucVuDTO)
        Dim bcDao As New ChucVuDAO()
        bcDao.SuaChucVu(ChucVu)
    End Sub

    Public Sub XoaChucVu(ByVal ChucVu As ChucVuDTO)
        Dim bcDao As New ChucVuDAO()
        bcDao.XoaChucVu(ChucVu)
    End Sub
End Class

